home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Zoo5.Dxr / 00011.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  417 b   |  18 lines
  1. on exitFrame
  2.   global activeSprite, LcurrentWeight, RcurrentWeight, onScaleList
  3.   set RcurrentWeight to 0
  4.   set LcurrentWeight to 2
  5.   set activeSprite to 15
  6.   puppetSprite(2, 1)
  7.   puppetSprite(3, 1)
  8.   puppetSprite(4, 1)
  9.   puppetSprite(6, 1)
  10.   puppetSprite(10, 1)
  11.   puppetSprite(11, 1)
  12.   puppetSprite(12, 1)
  13.   repeat with r = 14 to 17
  14.     puppetSprite(r, 1)
  15.   end repeat
  16.   setAt(onScaleList, activeSprite - 13, 1)
  17. end
  18.